home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / BibliographyManager.cpt / Bibliography Manager II / Bib. Man. II Cards / stack_-1.xml < prev    next >
Extensible Markup Language  |  1990-10-01  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in. II Cards</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>75250</cardID>
  8.     <listID>2056</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackhide MenuBarglobal stype, coping, activef, writetype, sandwmput empty into sandwmhide messageif coping <> "Yes" thenset the name of bg btn 31 to "Stack: " &&¬¨the short name of this stackput the short name of this stack into activefput 0 into stypeput empty into writetypeend ifpass openStackend openStack-- BIB. MAN. II CARDS v. 1.2-- LAST UPDATE: 9/30/90function DelEntryglobal userlevelput "Checking for Details..."lock screenput the userlevel into ulevset the userlevel to 3if the script of this cd = "d" then             -- DELETE DETAILS CARDput "Deleting Details for Reference Number " & fld Rnum & "..."click at 475,247                                 --CLICK SHOW BUTTONget the script of this bgif it = "xyzzy" thenif (the number of cds of bg DetBkgnd) < 2 thenrepeat with i = 3 to 6put empty into fld iend repeatelsedoMenu Delete Cardend ifelsebeepanswer "ERROR:  Could not locate Details stack"end ifpop cd --RETURN TO DATA STACK CARD (PUSHED IN SHOW BUTTON SCRIPT)end ifput "Deleting Reference Number " & fld Rnum & "..." -- DELETE BIB. STACK CARDif (the number of cds of bg "Data Card bkgnd") < 2 thenrepeat with i = 1 to 7put empty into fld iend repeatset the script of fld Rnum to "1"elsedoMenu Delete Cardend ifset the userlevel to ulevend DelEntryfunction FormAuthor Fir,fmtif fmt = 1 thenput last word of Fir into Lasdelete last word of Firrepeat until last char of Las <> space and last char of Las <> "."delete last char of Lasend repeatelseput first word of Fir into Lasdelete first word of Firend ifif last char of Las <> "," then put "," after Lasput 1 into irepeat for the number of words in Firrepeat until last char of word i of Fir <> ","delete last char of word i of Firend repeatif the number of chars in word i of Fir = 1 then put "." after¬¨word i of Firadd 1 to iend repeatrepeat until last char of Fir <> spacedelete last char of Firend repeatreturn Las && Firend FormAuthorfunction FormInAuth inAuthglobal inauthformput empty into lastauthput offset (" and ",inAuth) into ans   --FIND LAST AUTHOR IF HAS "AND"if ans = 0 then put offset (" & ",inAuth) into ans            --OR "&"if ans <> 0 thenput return into char ans of inAuthdelete word 1 of line 2 of inAuthput FormAuthor(line 2 of inAuth,line 2 of inauthform) into lastauthdelete line 2 of inAuthdelete last char of inAuthend ifif the number of words in inAuth < 4 thenput FormAuthor(inAuth,line 1 of inauthform) into outtxtif lastauth is not empty then put return & lastauth after outtxtreturn outtxtend ifput the number of words in inAuth into wdcntif line 3 of inauthform = 1 then --IF NO SEPARATING COMMAS CHECK RATIOput empty into lnloc                           --OF NAMES TO INITALSrepeat with i = 1 to wdcntif the number of chars in word i of inAuth > 2 thenput i & return after lnlocend ifend repeatput the number of lines in lnloc into lnnumif lnnum < 2 or wdcnt < 4 then            --IF ALL WORDS INITIALS OR--ONLY < 4 WORDS, ASSUME ONLY ONE NAME AND RETURN OUTTXTput FormAuthor(inAuth,line 1 of inauthform) into outtxtif lastauth is not empty then put return & lastauth after outtxtreturn outtxtend if                                                          --ELSEif lnnum/wdcnt < 0.5 then      --IF RATIO < 1/2, ASSUME LONG NAMESif line 1 of inauthform = 1 then                --ARE LAST NAMESif line 2 of inauthform = 1 then   --IF ALL F L, THEN ARE LOCSput lnloc into nlocselse                        --ELSE DERIVE LOCS OF END OF